home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SAT_LAM.ZIP / MV_LAM.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1997-03-18  |  14.0 KB  |  920 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     String   STRING001
  31.     String   STRING002
  32.     String   STRING003
  33.     String   STRING004
  34.     String   STRING005
  35.     String   STRING006
  36.     String   STRING007
  37.     String   STRING008
  38.     String   STRING009
  39.     String   STRING010
  40.     String   STRING011
  41.     String   STRING012
  42.     String   STRING013
  43.     String   STRING014
  44.     String   STRING015
  45.     String   STRING016
  46.     String   STRING017
  47.     String   TSTRING018(100)
  48.     Int      INT001
  49.     Int      INT002
  50.     Int      INT003
  51.     Int      INT004
  52.     Int      INT005
  53.     Int      INT006
  54.     Int      INT007
  55.     Int      INT008
  56.     Int      INT009
  57.  
  58. ;------------------------------------------------------------------------------
  59.  
  60.     FOpen 1, PPEPath() + "MV_LAM.CFG", 0, 2
  61.     FGet 1, STRING001
  62.     FGet 1, STRING002
  63.     FGet 1, INTEGER001
  64.     FGet 1, STRING003
  65.     FClose 1
  66.     STRING001 = Upper(STRING001)
  67.     STRING003 = Upper(STRING003)
  68.     :LABEL001
  69.     If (STRING001 == "ASCII") Then
  70.         Cls
  71.         DispFile PPEPath() + "LAM_ASK.ANS", 0
  72.     Else
  73.         If (STRING001 == "ANSI") Then
  74.             Cls
  75.             DispFile PPEPath() + "LAM_OLD.ANS", 0
  76.             Goto LABEL002
  77.         Endif
  78.         Print "@XF1"
  79.         Cls
  80.         Print "@X01"
  81.         Cls
  82.         AnsiPos 1, 1
  83.         Print "Error in line  of CFG file .. contacted Sysop..."
  84.         Delay 10
  85.         Cls
  86.         End
  87.     Endif
  88.     STRING005 = "@X0B"
  89.     STRING006 = "@X03"
  90.     STRING007 = "@X08"
  91.     Goto LABEL003
  92.     :LABEL002
  93.     STRING005 = "@X0A"
  94.     STRING006 = "@X02"
  95.     STRING007 = "@X08"
  96.     :LABEL003
  97.     AnsiPos 15, 21
  98.     Print STRING005 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING007 + "    [remove]" + STRING007 + "    [quit]"
  99.     INTEGER009 = 1
  100.     :LABEL004
  101.     STRING008 = Inkey()
  102.     If ((STRING008 == "UP") || (STRING008 == "LEFT")) Then
  103.         Goto LABEL005
  104.     Endif
  105.     If ((STRING008 == "DOWN") || (STRING008 == "RIGHT")) Then
  106.         Goto LABEL006
  107.     Endif
  108.     If (STRING008 == Chr(13)) Then
  109.         Goto LABEL007
  110.     Endif
  111.     If (!(STRING008 == Chr(27))) Goto LABEL004
  112.     Goto LABEL067
  113.     :LABEL005
  114.     If (INTEGER009 == 1) Then
  115.         AnsiPos 15, 21
  116.         Print STRING007 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING007 + "    [remove]" + STRING005 + "    [quit]"
  117.         INTEGER009 = 4
  118.         Goto LABEL004
  119.     Endif
  120.     If (INTEGER009 == 2) Then
  121.         AnsiPos 15, 21
  122.         Print STRING005 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING007 + "    [remove]" + STRING007 + "    [quit]"
  123.         INTEGER009 = 1
  124.         Goto LABEL004
  125.     Endif
  126.     If (INTEGER009 == 3) Then
  127.         AnsiPos 15, 21
  128.         Print STRING007 + "[add lamer]" + STRING005 + "    [view lamers]" + STRING007 + "    [remove]" + STRING007 + "    [quit]"
  129.         INTEGER009 = 2
  130.         Goto LABEL004
  131.     Endif
  132.     If (!(INTEGER009 == 4)) Goto LABEL005
  133.     AnsiPos 15, 21
  134.     Print STRING007 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING005 + "    [remove]" + STRING007 + "    [quit]"
  135.     INTEGER009 = 3
  136.     Goto LABEL004
  137.     :LABEL006
  138.     If (INTEGER009 == 1) Then
  139.         AnsiPos 15, 21
  140.         Print STRING007 + "[add lamer]" + STRING005 + "    [view lamers]" + STRING007 + "    [remove]" + STRING007 + "    [quit]"
  141.         INTEGER009 = 2
  142.         Goto LABEL004
  143.     Endif
  144.     If (INTEGER009 == 2) Then
  145.         AnsiPos 15, 21
  146.         Print STRING007 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING005 + "    [remove]" + STRING007 + "    [quit]"
  147.         INTEGER009 = 3
  148.         Goto LABEL004
  149.     Endif
  150.     If (INTEGER009 == 3) Then
  151.         AnsiPos 15, 21
  152.         Print STRING007 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING007 + "    [remove]" + STRING005 + "    [quit]"
  153.         INTEGER009 = 4
  154.         Goto LABEL004
  155.     Endif
  156.     If (!(INTEGER009 == 4)) Goto LABEL006
  157.     AnsiPos 15, 21
  158.     Print STRING005 + "[add lamer]" + STRING007 + "    [view lamers]" + STRING007 + "    [remove]" + STRING007 + "    [quit]"
  159.     INTEGER009 = 1
  160.     Goto LABEL004
  161.     :LABEL007
  162.     INT001 = 0
  163.     INT002 = 0
  164.     If (INTEGER009 == 2) Then
  165.         FOpen 1, PPEPath() + "mv_lam.dat", 0, 0
  166.         :LABEL008
  167.         FGet 1, TSTRING018(INT001)
  168.         If (Len(TSTRING018(INT001)) == 0) Then
  169.             FClose 1
  170.             INT002 = INT001
  171.             Goto LABEL009
  172.         Endif
  173.         Inc INT001
  174.         Goto LABEL008
  175.         :LABEL009
  176.         INT001 = 0
  177.         Cls
  178.         Print "@POFF@"
  179.         AnsiPos 1, 1
  180.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  181.         AnsiPos 1, 22
  182.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  183.         AnsiPos 1, 2
  184.         While (INT002 <= 20) Do
  185.             If (INT001 == INT002) Goto LABEL023
  186.             PrintLn TSTRING018(INT001)
  187.             Inc INT001
  188.         EndWhile
  189.         :LABEL010
  190.         AnsiPos 1, 23
  191.         Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page"
  192.         AnsiPos 1, 2
  193.         AnsiPos 1, 1
  194.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  195.         AnsiPos 1, 22
  196.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  197.         AnsiPos 1, 2
  198.         :LABEL011
  199.         If (INT001 == 20) Goto LABEL012
  200.         PrintLn TSTRING018(INT001)
  201.         Inc INT001
  202.         Goto LABEL011
  203.         :LABEL012
  204.         STRING009 = Inkey()
  205.         If (STRING009 == "PGDN") Then
  206.             If ((INT001 >= 20) && (INT001 < 40)) Then
  207.                 Goto LABEL015
  208.             Endif
  209.             :LABEL013
  210.             If ((INT001 >= 40) && (INT001 < 60)) Then
  211.                 Goto LABEL017
  212.             Endif
  213.             If ((INT001 >= 60) && (INT001 < 80)) Then
  214.                 Goto LABEL019
  215.             Endif
  216.             If (!((INT001 >= 80) && (INT001 <= 100))) Goto LABEL013
  217.             Goto LABEL021
  218.         Endif
  219.         If (STRING009 == Chr(27)) Then
  220.             Goto LABEL023
  221.         Endif
  222.         If (!(STRING009 == "PGUP")) Goto LABEL012
  223.         If ((INT001 <= 40) && (INT001 >= 20)) Then
  224.             INT001 = 0
  225.             Cls
  226.             Goto LABEL010
  227.         Endif
  228.         If ((INT001 <= 60) && (INT001 > 40)) Then
  229.             INT001 = 20
  230.             Cls
  231.             Goto LABEL015
  232.         Endif
  233.         :LABEL014
  234.         If ((INT001 <= 80) && (INT001 > 60)) Then
  235.             INT001 = 40
  236.             Cls
  237.             Goto LABEL017
  238.         Endif
  239.         If (!((INT001 <= 100) && (INT001 > 80))) Goto LABEL014
  240.         INT001 = 60
  241.         Cls
  242.         Goto LABEL019
  243.         :LABEL015
  244.         Cls
  245.         AnsiPos 1, 1
  246.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  247.         AnsiPos 1, 22
  248.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  249.         AnsiPos 1, 2
  250.         AnsiPos 1, 23
  251.         Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + "    [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
  252.         AnsiPos 1, 2
  253.         :LABEL016
  254.         If (INT001 == 40) Goto LABEL012
  255.         Print STRING007
  256.         PrintLn TSTRING018(INT001)
  257.         Inc INT001
  258.         Goto LABEL016
  259.         :LABEL017
  260.         Cls
  261.         AnsiPos 1, 1
  262.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  263.         AnsiPos 1, 22
  264.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  265.         AnsiPos 1, 2
  266.         AnsiPos 1, 23
  267.         Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + "    [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
  268.         AnsiPos 1, 2
  269.         :LABEL018
  270.         If (INT001 == 60) Goto LABEL012
  271.         Print STRING007
  272.         PrintLn TSTRING018(INT001)
  273.         Inc INT001
  274.         Goto LABEL018
  275.         :LABEL019
  276.         Cls
  277.         AnsiPos 1, 1
  278.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  279.         AnsiPos 1, 22
  280.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  281.         AnsiPos 1, 2
  282.         AnsiPos 1, 23
  283.         Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + "    [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
  284.         AnsiPos 1, 2
  285.         :LABEL020
  286.         If (INT001 == 80) Goto LABEL012
  287.         Print STRING007
  288.         PrintLn TSTRING018(INT001)
  289.         Inc INT001
  290.         Goto LABEL020
  291.         :LABEL021
  292.         Cls
  293.         AnsiPos 1, 1
  294.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  295.         AnsiPos 1, 22
  296.         PrintLn STRING005 + "-----------------" + STRING006 + "------------------------------" + STRING007 + "--------------------------------"
  297.         AnsiPos 1, 2
  298.         AnsiPos 1, 23
  299.         Print STRING005 + "[" + STRING006 + "p" + STRING007 + "agedow" + STRING006 + "n" + STRING005 + "]" + STRING006 + " next page" + STRING005 + "    [" + STRING006 + "P" + STRING007 + "age u" + STRING006 + "p" + STRING007 + "]" + STRING006 + " previous page"
  300.         AnsiPos 1, 2
  301.         :LABEL022
  302.         If (INT001 == 100) Goto LABEL012
  303.         Print STRING007
  304.         PrintLn TSTRING018(INT001)
  305.         Inc INT001
  306.         Goto LABEL022
  307.         :LABEL023
  308.         AnsiPos 1, 23
  309.         Wait
  310.         Goto LABEL001
  311.     Endif
  312.     If (INTEGER009 == 1) Then
  313.         If (INTEGER001 == U_Sec) Then
  314.             AnsiPos 1, 21
  315.             PrintLn Space(80)
  316.             AnsiPos 1, 21
  317.             PrintLn "                 Yo no have level to axx this function!"
  318.             Delay 40
  319.             Goto LABEL001
  320.         Endif
  321.         STRING012 = ""
  322.         STRING011 = ""
  323.         STRING013 = ""
  324.         AnsiPos 1, 21
  325.         PrintLn Space(80)
  326.         AnsiPos 8, 17
  327.         Print STRING005 + "Name o" + STRING006 + "f la" + STRING007 + "mer : [···················]"
  328.         AnsiPos 2, 18
  329.         Print STRING005 + "Reason o" + STRING006 + "f ad" + STRING007 + "d : [················································]"
  330.         AnsiPos 2, 19
  331.         Print STRING005 + "Your fak" + STRING006 + "e name to che" + STRING007 + "at lamer : [···················]"
  332.         AnsiPos 2, 22
  333.         Print STRING005 + "pres" + STRING006 + "s [+]" + STRING007 + " to save!"
  334.         :LABEL024
  335.         AnsiPos 18, 18
  336.         Print STRING007 + "[···················································]"
  337.         AnsiPos 19, 18
  338.         Print STRING007 + STRING012
  339.         AnsiPos 34, 19
  340.         Print STRING007 + "[···················]"
  341.         AnsiPos 36, 19
  342.         Print STRING007 + STRING013
  343.         AnsiPos 24, 17
  344.         Print STRING005 + "[···················]"
  345.         AnsiPos 25, 17
  346.         Print STRING007 + STRING011
  347.         INTEGER005 = 25
  348.         INTEGER004 = 17
  349.         INTEGER006 = 25
  350.         INTEGER007 = 44
  351.         INTEGER010 = 1
  352.         AnsiPos 25, 17
  353.         Goto LABEL027
  354.         :LABEL025
  355.         AnsiPos 18, 18
  356.         Print STRING005 + "[···················································]"
  357.         AnsiPos 19, 18
  358.         Print STRING007 + STRING012
  359.         AnsiPos 34, 19
  360.         Print STRING007 + "[···················]"
  361.         AnsiPos 36, 19
  362.         Print STRING007 + STRING013
  363.         AnsiPos 24, 17
  364.         Print STRING007 + "[···················]"
  365.         AnsiPos 25, 17
  366.         Print STRING007 + STRING011
  367.         INTEGER005 = 19
  368.         INTEGER004 = 18
  369.         INTEGER006 = 19
  370.         INTEGER007 = 70
  371.         INTEGER010 = 2
  372.         AnsiPos 19, 18
  373.         Goto LABEL027
  374.         :LABEL026
  375.         AnsiPos 18, 18
  376.         Print STRING007 + "[···················································]"
  377.         AnsiPos 19, 18
  378.         Print STRING007 + STRING012
  379.         AnsiPos 34, 19
  380.         Print STRING005 + "[···················]"
  381.         AnsiPos 37, 19
  382.         Print STRING007 + STRING013
  383.         AnsiPos 24, 17
  384.         Print STRING007 + "[···················]"
  385.         AnsiPos 25, 17
  386.         Print STRING007 + STRING011
  387.         INTEGER005 = 35
  388.         INTEGER004 = 19
  389.         INTEGER006 = 35
  390.         INTEGER007 = 54
  391.         INTEGER010 = 3
  392.         AnsiPos 35, 19
  393.         :LABEL027
  394.         If (INTEGER010 == 1) Then
  395.             If (STRING011 == "") Goto LABEL028
  396.             INTEGER008 = Len(STRING011)
  397.             STRING014 = STRING011
  398.             INTEGER005 = INTEGER005 + INTEGER008
  399.             AnsiPos INTEGER005, INTEGER004
  400.             Goto LABEL029
  401.         Endif
  402.         If (INTEGER010 == 2) Then
  403.             If (STRING012 == "") Goto LABEL028
  404.             INTEGER008 = Len(STRING012)
  405.             STRING014 = STRING012
  406.             INTEGER005 = INTEGER005 + INTEGER008
  407.             AnsiPos INTEGER005, INTEGER004
  408.             Goto LABEL029
  409.         Endif
  410.         If (INTEGER010 == 3) Then
  411.             If (STRING013 == "") Goto LABEL028
  412.             INTEGER008 = Len(STRING013)
  413.             STRING014 = STRING013
  414.             INTEGER005 = INTEGER005 + INTEGER008
  415.             AnsiPos INTEGER005, INTEGER004
  416.             Goto LABEL029
  417.             :LABEL028
  418.             STRING014 = ""
  419.         Endif
  420.         :LABEL029
  421.         STRING010 = Inkey()
  422.         If (STRING010 == "") Goto LABEL029
  423.         If (STRING010 == " ") Goto LABEL031
  424.         If (STRING010 == "@") Goto LABEL032
  425.         If (STRING010 == "LEFT") Goto LABEL030
  426.         If (STRING010 == "RIGHT") Goto LABEL031
  427.         If (STRING010 == "DOWN") Goto LABEL033
  428.         If (STRING010 == "DEL") Goto LABEL027
  429.         If (STRING010 == "UP") Goto LABEL034
  430.         If (STRING010 == Chr(8)) Goto LABEL030
  431.         If (STRING010 == Chr(13)) Goto LABEL035
  432.         If (STRING010 == Chr(43)) Goto LABEL036
  433.         If (INTEGER005 == INTEGER007) Goto LABEL029
  434.         AnsiPos INTEGER005, INTEGER004
  435.         Print STRING005 + STRING010
  436.         Delay 1
  437.         AnsiPos INTEGER005, INTEGER004
  438.         Print STRING006 + STRING010
  439.         Delay 1
  440.         AnsiPos INTEGER005, INTEGER004
  441.         Print STRING007 + STRING010
  442.         Delay 1
  443.         STRING014 = STRING014 + STRING010
  444.         Inc INTEGER005
  445.         Goto LABEL029
  446.         :LABEL030
  447.         If (INTEGER005 == INTEGER006) Goto LABEL029
  448.         INTEGER011 = Len(STRING014)
  449.         Dec INTEGER011
  450.         STRING014 = Left(STRING014, INTEGER011)
  451.         Backup 1
  452.         Print STRING005 + "·"
  453.         Backup 1
  454.         Dec INTEGER005
  455.         Goto LABEL029
  456.         :LABEL031
  457.         If (INTEGER005 == INTEGER007) Goto LABEL029
  458.         AnsiPos INTEGER005, INTEGER004
  459.         Print " "
  460.         STRING014 = STRING014 + " "
  461.         Inc INTEGER005
  462.         Goto LABEL029
  463.         :LABEL032
  464.         AnsiPos 9, 21
  465.         Print "@X08Maybe i can accept in next time.. =) !"
  466.         Delay 30
  467.         AnsiPos 1, 21
  468.         Print Space(80)
  469.         Goto LABEL029
  470.         :LABEL033
  471.         If (INTEGER010 == 1) Then
  472.             STRING011 = STRING014
  473.             Goto LABEL025
  474.         Endif
  475.         If (INTEGER010 == 2) Then
  476.             STRING012 = STRING014
  477.             Goto LABEL026
  478.         Endif
  479.         If (!(INTEGER010 == 3)) Goto LABEL033
  480.         STRING013 = STRING014
  481.         Goto LABEL024
  482.         :LABEL034
  483.         If (INTEGER010 == 1) Then
  484.             STRING011 = STRING014
  485.             Goto LABEL026
  486.         Endif
  487.         If (INTEGER010 == 2) Then
  488.             STRING012 = STRING014
  489.             Goto LABEL024
  490.         Endif
  491.         If (!(INTEGER010 == 3)) Goto LABEL034
  492.         STRING013 = STRING014
  493.         Goto LABEL025
  494.         :LABEL035
  495.         If (INTEGER010 == 1) Then
  496.             STRING011 = STRING014
  497.             Goto LABEL025
  498.         Endif
  499.         If (INTEGER010 == 2) Then
  500.             STRING012 = STRING014
  501.             Goto LABEL026
  502.         Endif
  503.         If (!(INTEGER010 == 3)) Goto LABEL035
  504.         STRING013 = STRING014
  505.         :LABEL036
  506.         AnsiPos 10, 21
  507.         Print STRING007 + "Save this shit ?!" + STRING006 + "    yeah!" + STRING007 + "  no!"
  508.         INTEGER010 = 1
  509.         :LABEL037
  510.         STRING010 = Inkey()
  511.         If ((STRING010 == "DOWN") || (STRING010 == "RIGHT")) Then
  512.             :LABEL038
  513.             If (INTEGER010 == 1) Then
  514.                 AnsiPos 10, 21
  515.                 Print STRING007 + "Save this shit ?!" + STRING007 + "    yeah!" + STRING006 + "  no!"
  516.                 INTEGER010 = 2
  517.                 Goto LABEL037
  518.             Endif
  519.             If (!(INTEGER010 == 2)) Goto LABEL038
  520.             AnsiPos 10, 21
  521.             Print STRING007 + "Save this shit ?!" + STRING006 + "    yeah!" + STRING007 + "  no!"
  522.             INTEGER010 = 1
  523.             Goto LABEL037
  524.         Endif
  525.         If ((STRING010 == "UP") || (STRING010 == "LEFT")) Then
  526.             If (INTEGER010 == 1) Then
  527.                 AnsiPos 10, 21
  528.                 Print STRING007 + "Save this shit ?!" + STRING007 + "    yeah!" + STRING006 + "  no!"
  529.                 INTEGER010 = 2
  530.                 Goto LABEL037
  531.             Endif
  532.             If (!(INTEGER010 == 2)) Goto LABEL037
  533.             AnsiPos 10, 21
  534.             Print STRING007 + "Save this shit ?!" + STRING006 + "    yeah!" + STRING007 + "  no!"
  535.             INTEGER010 = 1
  536.             Goto LABEL037
  537.         Endif
  538.         If (!(STRING010 == Chr(13))) Goto LABEL037
  539.         If (INTEGER010 == 1) Then
  540.             If (STRING011 == "") Goto LABEL039
  541.             If (STRING013 == "") Goto LABEL039
  542.             If (STRING012 == "") Goto LABEL039
  543.             FAppend 1, PPEPath() + "MV_LAM.DAT", 1, 0
  544.             FPutLn 1, STRING005 + STRING011 + STRING007 + "@POS:26@" + STRING012
  545.             FClose 1
  546.             FAppend 1, PPEPath() + "mv_find.nam", 0, 0
  547.             FPutLn 1, STRING011
  548.             FClose 1
  549.             FAppend 1, PPEPath() + "MV_LAM.NAM", 0, 0
  550.             FPutLn 1, STRING006 + STRING013
  551.             FClose 1
  552.             AnsiPos 1, 21
  553.             PrintLn Space(80)
  554.             AnsiPos 20, 21
  555.             PrintLn STRING005 + "Succe" + STRING006 + "ssful Sa" + STRING007 + "ved!!"
  556.             Delay 20
  557.             Goto LABEL001
  558.         Endif
  559.         :LABEL039
  560.         AnsiPos 1, 21
  561.         PrintLn Space(80)
  562.         AnsiPos 25, 21
  563.         PrintLn STRING005 + "Ab" + STRING006 + "ort S" + STRING007 + "ave"
  564.         Delay 20
  565.         Goto LABEL001
  566.     Endif
  567.     If (INTEGER009 == 3) Then
  568.         INT001 = 0
  569.         INT002 = 0
  570.         INT003 = 0
  571.         INT004 = 0
  572.         INT005 = 0
  573.         INT006 = 0
  574.         INT007 = 0
  575.         INT008 = 0
  576.         INT009 = 0
  577.         STRING014 = ""
  578.         STRING015 = ""
  579.         AnsiPos 1, 21
  580.         PrintLn Space(80)
  581.         AnsiPos 11, 17
  582.         Print STRING005 + "you" + STRING006 + "r han" + STRING007 + "dle : [····················]"
  583.         INTEGER005 = 26
  584.         INTEGER004 = 17
  585.         INTEGER006 = 26
  586.         INTEGER007 = 45
  587.         :LABEL040
  588.         STRING010 = Inkey()
  589.         If (STRING010 == "") Goto LABEL040
  590.         If (STRING010 == " ") Goto LABEL042
  591.         If (STRING010 == "@") Goto LABEL043
  592.         If (STRING010 == "LEFT") Goto LABEL040
  593.         If (STRING010 == "RIGHT") Goto LABEL040
  594.         If (STRING010 == "DOWN") Goto LABEL040
  595.         If (STRING010 == "DEL") Goto LABEL040
  596.         If (STRING010 == "UP") Goto LABEL040
  597.         If (STRING010 == Chr(8)) Goto LABEL041
  598.         If (STRING010 == Chr(13)) Goto LABEL044
  599.         If (INTEGER005 == INTEGER007) Goto LABEL040
  600.         AnsiPos INTEGER005, INTEGER004
  601.         Print STRING005 + STRING010
  602.         Delay 1
  603.         AnsiPos INTEGER005, INTEGER004
  604.         Print STRING006 + STRING010
  605.         Delay 1
  606.         AnsiPos INTEGER005, INTEGER004
  607.         Print STRING007 + STRING010
  608.         Delay 1
  609.         STRING014 = STRING014 + STRING010
  610.         Inc INTEGER005
  611.         Goto LABEL040
  612.         :LABEL041
  613.         If (INTEGER005 == INTEGER006) Goto LABEL040
  614.         INTEGER011 = Len(STRING014)
  615.         Dec INTEGER011
  616.         STRING014 = Left(STRING014, INTEGER011)
  617.         Backup 1
  618.         Print STRING005 + "·"
  619.         Backup 1
  620.         Dec INTEGER005
  621.         Goto LABEL040
  622.         :LABEL042
  623.         If (INTEGER005 == INTEGER007) Goto LABEL040
  624.         AnsiPos INTEGER005, INTEGER004
  625.         Print " "
  626.         STRING014 = STRING014 + " "
  627.         Inc INTEGER005
  628.         Goto LABEL040
  629.         :LABEL043
  630.         AnsiPos 9, 21
  631.         Print "@X08Maybe i can accept in next time.. =) !"
  632.         Delay 30
  633.         AnsiPos 1, 21
  634.         Print Space(80)
  635.         Goto LABEL040
  636.         :LABEL044
  637.         STRING015 = STRING014
  638.         AnsiPos 21, 19
  639.         Print STRING005 + "Compression 0%"
  640.         Delay 1
  641.         AnsiPos 21, 19
  642.         Print STRING006 + "Compression 0%"
  643.         Delay 1
  644.         AnsiPos 21, 19
  645.         Print STRING007 + "Compression 0%"
  646.         Delay 1
  647.         INTEGER003 = 0
  648.         If (STRING015 == "") Goto LABEL001
  649.         FOpen 1, PPEPath() + "mv_find.nam", 0, 0
  650.         :LABEL045
  651.         FGet 1, TSTRING018(INT001)
  652.         If (Len(TSTRING018(INT001)) == 0) Then
  653.             FClose 1
  654.             INT002 = INT001
  655.             Goto LABEL046
  656.         Endif
  657.         Inc INT001
  658.         Goto LABEL045
  659.         :LABEL046
  660.         INT001 = 0
  661.         :LABEL047
  662.         If (INT001 == INT002) Goto LABEL056
  663.         STRING015 = Upper(STRING015)
  664.         TSTRING018(INT001) = Upper(TSTRING018(INT001))
  665.         If (STRING015 == TSTRING018(INT001)) Goto LABEL048
  666.         Inc INT001
  667.         AnsiPos 33, 19
  668.         Print INT001
  669.         Print "%"
  670.         Goto LABEL047
  671.         :LABEL048
  672.         Inc INTEGER003
  673.         If (INT003 == 0) Goto LABEL050
  674.         If (INT004 == 0) Goto LABEL051
  675.         If (INT005 == 0) Goto LABEL052
  676.         If (INT006 == 0) Goto LABEL053
  677.         If (INT007 == 0) Goto LABEL054
  678.         If (INT008 == 0) Goto LABEL055
  679.         INT009 = INT001
  680.         :LABEL049
  681.         AnsiPos 22, 21
  682.         Print "Find "
  683.         Print INTEGER003
  684.         Print " adds"
  685.         Inc INT001
  686.         Goto LABEL047
  687.         :LABEL050
  688.         INT003 = INT001
  689.         Goto LABEL049
  690.         :LABEL051
  691.         INT004 = INT001
  692.         Goto LABEL049
  693.         :LABEL052
  694.         INT005 = INT001
  695.         Goto LABEL049
  696.         :LABEL053
  697.         INT006 = INT001
  698.         Goto LABEL049
  699.         :LABEL054
  700.         INT007 = INT001
  701.         Goto LABEL049
  702.         :LABEL055
  703.         INT008 = INT001
  704.         Goto LABEL049
  705.         :LABEL056
  706.         If (INT001 <= 10) Goto LABEL059
  707.         If (INT001 <= 20) Goto LABEL060
  708.         If (INT001 <= 30) Goto LABEL061
  709.         If (INT001 <= 40) Goto LABEL062
  710.         If (INT001 <= 50) Goto LABEL063
  711.         If (INT001 <= 60) Goto LABEL064
  712.         If (INT001 <= 80) Goto LABEL065
  713.         If (INT001 <= 90) Goto LABEL065
  714.         If (INTEGER003 == 0) Goto LABEL001
  715.         AnsiPos 53, 17
  716.         Print STRING005 + "Handles of adds"
  717.         Delay 1
  718.         AnsiPos 53, 17
  719.         Print STRING006 + "Handles of adds"
  720.         Delay 1
  721.         AnsiPos 53, 17
  722.         Print STRING007 + "Handles of adds"
  723.         Delay 1
  724.         INT001 = 0
  725.         FOpen 1, PPEPath() + "mv_lam.nam", 0, 0
  726.         :LABEL057
  727.         FGet 1, TSTRING018(INT001)
  728.         If (Len(TSTRING018(INT001)) == 0) Then
  729.             FClose 1
  730.             INT002 = INT001
  731.             Goto LABEL058
  732.         Endif
  733.         Inc INT001
  734.         Goto LABEL057
  735.         :LABEL058
  736.         AnsiPos 53, 18
  737.         Print TSTRING018(INT003)
  738.         If (INT004 == 0) Goto LABEL066
  739.         AnsiPos 53, 19
  740.         Print TSTRING018(INT004)
  741.         If (INT005 == 0) Goto LABEL066
  742.         AnsiPos 53, 20
  743.         Print TSTRING018(INT005)
  744.         If (INT006 == 0) Goto LABEL066
  745.         AnsiPos 53, 21
  746.         Print TSTRING018(INT006)
  747.         If (INT007 == 0) Goto LABEL066
  748.         AnsiPos 53, 21
  749.         Print TSTRING018(INT007)
  750.         If (INT008 == 0) Goto LABEL066
  751.         AnsiPos 53, 21
  752.         Print TSTRING018(INT008)
  753.         If (INT009 == 0) Goto LABEL066
  754.         AnsiPos 53, 21
  755.         Print TSTRING018(INT009)
  756.         Delay 30
  757.         Goto LABEL066
  758.         :LABEL059
  759.         AnsiPos 33, 19
  760.         Print "10%"
  761.         Delay 0.55
  762.         AnsiPos 33, 19
  763.         Print "15%"
  764.         Delay 0.55
  765.         AnsiPos 33, 19
  766.         Print "17%"
  767.         Delay 0.55
  768.         :LABEL060
  769.         AnsiPos 33, 19
  770.         Print "20%"
  771.         Delay 1
  772.         AnsiPos 33, 19
  773.         :LABEL061
  774.         Print "30%"
  775.         Delay 0.55
  776.         AnsiPos 33, 19
  777.         :LABEL062
  778.         Print "50%"
  779.         Delay 0.55
  780.         AnsiPos 33, 19
  781.         :LABEL063
  782.         Print "60%"
  783.         Delay 0.55
  784.         AnsiPos 33, 19
  785.         :LABEL064
  786.         Print "80%"
  787.         Delay 0.55
  788.         AnsiPos 33, 19
  789.         :LABEL065
  790.         Print "100%"
  791.         Delay 0.55
  792.         INT001 = 100
  793.         Goto LABEL056
  794.         :LABEL066
  795.         Delay 50
  796.         FAppend 1, PPEPath() + "MSG", 0, 2
  797.         FPutLn 1, "heyaa... a user : " + STRING015 + " request your remove of ya lamer list"
  798.         FPutLn 1, STRING015 + " laughts, because reason of ya handle is a Shit lie!"
  799.         FPutLn 1, ""
  800.         FPutLn 1, ""
  801.         FPutLn 1, ""
  802.         FPutLn 1, " Thx for cooperation!"
  803.         FClose 1
  804.         Message 0, STRING003, STRING015, "REmove my handle!", "R", 0, 0, 0, PPEPath() + "MSG."
  805.         Delete PPEPath() + "msg"
  806.         Goto LABEL001
  807.     Endif
  808.     :LABEL067
  809.     STRING016 = 1
  810.     STRING017 = 24
  811.     :LABEL068
  812.     If (STRING016 == 14) Goto LABEL069
  813.     AnsiPos 1, STRING016
  814.     Print STRING006 + "───────────────────────────────────────────────────────────────────────────────"
  815.     AnsiPos 1, STRING017
  816.     Print STRING006 + "───────────────────────────────────────────────────────────────────────────────"
  817.     Delay 1
  818.     AnsiPos 1, STRING016
  819.     Print Space(79)
  820.     AnsiPos 1, STRING017
  821.     Print Space(79)
  822.     Inc STRING016
  823.     Dec STRING017
  824.     Goto LABEL068
  825.     :LABEL069
  826.     INTEGER002 = 15
  827.     STRING004 = "                [sarcastiC] m0dding division coded by maveriCk"
  828.     :LABEL070
  829.     If (Mid(STRING004, INTEGER002, 3) == "   ") Goto LABEL071
  830.     AnsiPos INTEGER002 - "2", 13
  831.     Print "  "
  832.     AnsiPos INTEGER002, 13
  833.     Print STRING007 + Mid(STRING004, INTEGER002, 1)
  834.     INTEGER002 = INTEGER002 + 1
  835.     AnsiPos INTEGER002, 13
  836.     Print STRING006 + Mid(STRING004, INTEGER002, 1)
  837.     INTEGER002 = INTEGER002 + 1
  838.     AnsiPos INTEGER002, 13
  839.     Print STRING005 + Mid(STRING004, INTEGER002, 2)
  840.     INTEGER002 = INTEGER002 + 1
  841.     AnsiPos INTEGER002, 13
  842.     Print STRING006 + Mid(STRING004, INTEGER002, 1)
  843.     INTEGER002 = INTEGER002 + 1
  844.     AnsiPos INTEGER002, 13
  845.     Print STRING007 + Mid(STRING004, INTEGER002, 1)
  846.     INTEGER002 = INTEGER002 - 3
  847.     Delay 2
  848.     Goto LABEL070
  849.     :LABEL071
  850.     AnsiPos INTEGER002 - "2", 13
  851.     Print "  "
  852.     End
  853.  
  854. ;------------------------------------------------------------------------------
  855. ;
  856. ; Usage report (before postprocessing)
  857. ;
  858. ; ■ Statements used :
  859. ;
  860. ;    2       End
  861. ;    14      Cls
  862. ;    1       Wait
  863. ;    201     Goto 
  864. ;    120     Let 
  865. ;    102     Print 
  866. ;    26      PrintLn 
  867. ;    118     If 
  868. ;    2       DispFile 
  869. ;    4       FOpen 
  870. ;    4       FAppend 
  871. ;    8       FClose 
  872. ;    7       FGet 
  873. ;    9       FPutLn 
  874. ;    1       Delete 
  875. ;    31      Delay 
  876. ;    17      Inc 
  877. ;    5       Dec 
  878. ;    128     AnsiPos 
  879. ;    4       Backup 
  880. ;    1       Message 
  881. ;
  882. ;
  883. ; ■ Functions used :
  884. ;
  885. ;    356     +
  886. ;    3       -
  887. ;    105     ==
  888. ;    3       <
  889. ;    14      <=
  890. ;    3       >
  891. ;    5       >=
  892. ;    53      !
  893. ;    8       &&
  894. ;    4       ||
  895. ;    8       Len(
  896. ;    4       Upper()
  897. ;    6       Mid()
  898. ;    2       Left()
  899. ;    9       Space()
  900. ;    9       Chr()
  901. ;    5       Inkey()
  902. ;    12      PPEPath()
  903. ;
  904. ;------------------------------------------------------------------------------
  905. ;
  906. ; Analysis flags : No flag
  907. ;
  908. ;------------------------------------------------------------------------------
  909. ;
  910. ; Postprocessing report
  911. ;
  912. ;    0       For/Next
  913. ;    1       While/EndWhile
  914. ;    40      If/Then or If/Then/Else
  915. ;    0       Select Case
  916. ;
  917. ;------------------------------------------------------------------------------
  918. ;                 AEGiS Corp - Break the routines, code against the machines!
  919. ;------------------------------------------------------------------------------
  920.